local GC_Sniffer = CreateFrame("Frame")
GC_Sniffer:RegisterEvent("CHAT_MSG_ADDON")
GC_Sniffer:SetScript("OnEvent", function (prefix, text, kod, message, chanel, sender, hernya, name, instanceID)
--команды для управления квестами
local nik=sender
local myNome = GetUnitName("player")
local endQuests="простые_квесты"
local qAchiv="взят_ли_квест_простая_ачивка"
local timeLimit="время_последнего_обращения"
testGM=gmTest(sender)
local msg = mysplit(message)
local kodMsg = mysplit(kod)
if kodMsg[1] == "pamyatkaNS" or kodMsg[1] == "#M1QP" or string.find(message, "принял +1",1,true) or kod == "Текущая версия" or string.find(message,"#krt") or kod=="NSGadd" then
	print (kod,message,sender)
end
if kodMsg[1] == "rand10" then
	genRand10()
end

if kodMsg[1] == "clientEvent1Fail" then
	if TDG["эвент_БО"] == nil then
		TDG["эвент_БО"] = {}
	end
	if TDG["эвент_БО"][sender] == nil then
		TDG["эвент_БО"][sender] = 1
	else
		TDG["эвент_БО"][sender]=TDG["эвент_БО"][sender]+1
	end
	SendAddonMessage("FailPointEvent1",message, "guild")
end
if kodMsg[1] == "clientEvent3Win" then
	SendChatMessage("СТОП эвент", "GUILD", nil, 1)
	SendChatMessage(sender .. " побеждает", "GUILD", nil, 1)
end
if kodMsg[1] == "NSGaddChatSend" then
	local kont,lok,tablen,kus
	local strX = {}
	local strY = {}
	local strXX = {}
	local strYY = {}
	for k, v in pairs(mapTablesS[message]) do
		if type(k)=="string" then
			kont = k
		end
		for k, v in pairs(mapTablesS[message][k]) do
			if type(k)=="string" then
				lok = k
			end
		end
		SendAddonMessage("NSGaddChatKL " .. message, kont .. " " .. lok, "guild")
		kus = math.ceil(tablelength(mapTablesS[message][kont][lok])/200)
		for i=1,kus do
			local ll = tostring(i)
			strXX[ll] = ""
			strYY[ll] = ""
			for k=1+(i-1)*200,i*200 do
				j = tostring(k)
				if mapTablesS[message][kont][lok][j] ~= nil then
					strX[j] = tostring(mapTablesS[message][kont][lok][j]["x"]):sub(3,5)
					strXX[ll] = strXX[ll] .. strX[j] .. " "
					strY[j] = tostring(mapTablesS[message][kont][lok][j]["y"]):sub(3,5)
					strYY[ll] = strYY[ll] .. strY[j] .. " "
				else
					break
				end
			end
		end
		for i=1,tablelength(strXX) do
			SendAddonMessage("NSGChatX " .. i .. " " .. message, strXX[tostring(i)], "guild")
			SendAddonMessage("NSGChatY " .. i .. " " .. message, strYY[tostring(i)], "guild")
		end
	end
end

if message == "#ver" then
	SendAddonMessage("NSGadd", "#verS " .. sender .. " " .. versAdd, "guild")
end

if string.find(kod,"inQsinh") and sender == myNome then
	local msg = mysplit(message)

	SendAddonMessage("inQdiServ название",incTabs[msg[3]]["название"], "guild")
	SendAddonMessage("inQdiServ старт " .. msg[3],incTabs[msg[3]]["старт"], "guild")
	SendAddonMessage("inQdiServ количество_этапов " .. msg[3],incTabs[msg[3]]["количество этапов"], "guild")
	SendAddonMessage("inQdiServ пСмерть " .. msg[3],incTabs[msg[3]]["пСмерть"], "guild")
	local tabNubD = printPar(incTabs[msg[3]]["смерть"])
	tabNubD = mysplit(tabNubD)
	for j=0,#tabNubD-1 do
		SendAddonMessage("inQdiServ смерть " .. msg[3] .. " " .. j,incTabs[msg[3]]["смерть"][j], "guild")
	end
	local tabNumEm = printPar(incTabs[msg[3]]["крики"])
	tabNumEm = mysplit(tabNumEm)
	if #tabNumEm ~= 0 then
		for k=0, #tabNumEm do
			numK=tostring(k)
			if incTabs[msg[3]]["крики"][numK] ~= nil then
				local tabNumEmS = printPar(incTabs[msg[3]]["крики"][numK]["ответы"])
				tabNumEmS = mysplit(tabNumEmS)
				SendAddonMessage("inQdiServ крикиКрик " .. msg[3] .. " " .. k,incTabs[msg[3]]["крики"][numK]["крик"], "guild")
				SendAddonMessage("inQdiServ крикиТаргет " .. msg[3] .. " " .. k,incTabs[msg[3]]["крики"][numK]["таргет"], "guild")
				for l=1,#tabNumEmS do
					lStr = tostring(l)
					SendAddonMessage("inQdiServ крикиОтв " .. msg[3] .. " " .. k .. " " .. l,incTabs[msg[3]]["крики"][numK]["ответы"][lStr], "guild")
				end
			end
		end
	end

	local tabNumSys = printPar(incTabs[msg[3]]["систем"])
	tabNumSys = mysplit(tabNumSys)
	if #tabNumSys ~= 0 then
		for q=0,#tabNumSys do
			numQ=tostring(q)
			if incTabs[msg[3]]["систем"][numQ] ~= nil then
				if incTabs[msg[3]]["систем"][numQ]["сообщение"] ~= nil then
					SendAddonMessage("inQdiServ системСообщение " .. msg[3] .. " " .. q,incTabs[msg[3]]["систем"][numQ]["сообщение"], "guild")
				end
				if incTabs[msg[3]]["систем"][numQ]["провал"] ~= nil then
					SendAddonMessage("inQdiServ системПровал " .. msg[3] .. " " .. q,incTabs[msg[3]]["систем"][numQ]["провал"], "guild")
				end
				if incTabs[msg[3]]["систем"][numQ]["таргет"] ~= nil then
					SendAddonMessage("inQdiServ системТаргет " .. msg[3] .. " " .. q,incTabs[msg[3]]["систем"][numQ]["таргет"], "guild")
				end
				local tabNumSysOtv = printPar(incTabs[msg[3]]["систем"][numQ]["ответы"])
				tabNumSysOtv = mysplit(tabNumSysOtv)
				for w=1,#tabNumSysOtv do
					numW=tostring(w)
					SendAddonMessage("inQdiServ системОтвет " .. msg[3] .. " " .. q .. " " .. w,incTabs[msg[3]]["систем"][numQ]["ответы"][numW], "guild")
				end
				if incTabs[msg[3]]["систем"][numQ]["провалОтв"] ~= nil then
					local tabNumSysProvOtv = printPar(incTabs[msg[3]]["систем"][numQ]["провалОтв"])
					tabNumSysProvOtv = mysplit(tabNumSysProvOtv)
					for e=1,#tabNumSysProvOtv do
						numE=tostring(e)
						SendAddonMessage("inQdiServ системПровОтв " .. msg[3] .. " " .. q .. " " .. e,incTabs[msg[3]]["систем"][numQ]["провалОтв"][numE], "guild")
					end
				end
				if incTabs[msg[3]]["систем"][numQ]["запрет_скиллы"] ~= nil then
					local tabNumSysZapretSkill = printPar(incTabs[msg[3]]["систем"][numQ]["запрет_скиллы"])
					tabNumSysZapretSkill = mysplit(tabNumSysZapretSkill)
					for r=1,#tabNumSysZapretSkill do
						numR=tostring(r)
						SendAddonMessage("inQdiServ системЗапретСкилл " .. msg[3] .. " " .. q .. " " .. r,incTabs[msg[3]]["систем"][numQ]["запрет_скиллы"][numR], "guild")
					end
					local tabNumSysZapretSkillOtv = printPar(incTabs[msg[3]]["систем"][numQ]["запрет_скиллы"]["ответы"])
					tabNumSysZapretSkillOtv = mysplit(tabNumSysZapretSkillOtv)
					for t=1,#tabNumSysZapretSkillOtv do
						numT=tostring(t)
						SendAddonMessage("inQdiServ системЗапСкиллОтв " .. msg[3] .. " " .. q .. " " .. t,incTabs[msg[3]]["систем"][numQ]["запрет_скиллы"]["ответы"][numT], "guild")
					end
				end
			end
		end
	end
	SendAddonMessage("inQdiServ успех",incTabs[msg[3]]["название"], "guild")
end
if string.find (kod, "#q3otvStat") then
	TDG[sender]["q3StatNum"] = tonumber(message)
	SendChatMessage(sender .. " выполни еще 5 пунктов ачивки", "guild", nil, 1);
	SendAddonMessage("#q3stStart " .. sender,message, "guild")
end

if string.find (kod, "#zlnDa") then
	print (message)
	print (TDG[sender]["q3StatNum"])
	if tonumber(message) >= tonumber(TDG[sender]["q3StatNum"])+5 then
		SendAddonMessage("NSGadd", "#xxx " .. sender, "guild")
		SendChatMessage(sender .. " !получает 2 опыта", "guild", nil, 1);
		TDG[sender][qAchiv] = "9999"
	else
		SendChatMessage(sender .. ", а ты точно не читер?!", "guild", nil, 1);
	end
end

if kod == "#chrnila" then
	local kont
	local lok
	local x
	local y
	for k, v in pairs(mapTablesS[msg[1]][msg[2]]) do
		kont = k
	end
	for k, v in pairs(mapTablesS[msg[1]][msg[2]][kont]) do
		lok = k
	end
	for k, v in pairs(mapTablesS[msg[1]][msg[2]][kont][lok]) do
		if k == "x" then
			x = v
		end
		if k == "y" then
			y = v
		end
		if k == "msg" then
			m = v
		end
		if k == "cel" then
			cel = v
		end
	end
	SendAddonMessage("#ch1ernilaC", msg[2] .. " " .. kont .. " " .. lok .. " " .. x .. " " .. y .. " " .. msg[1], "guild")
	SendAddonMessage("#chernilaCMsg", m, "guild")
	SendAddonMessage("#chernilaCel", cel, "guild")
	local pokkazkiLen = tablelength(mapTablesS[msg[1]][msg[2]][kont][lok]["podskazki"])
	for i=1,pokkazkiLen do
		j = tostring(i)
		SendAddonMessage("#ch1ernilaPod " .. j .. " " .. pokkazkiLen, mapTablesS[msg[1]][msg[2]][kont][lok]["podskazki"][j], "guild")
	end
end
if kod == "tblProMapQuest" and sender == myNome then
	local testKont = GetCurrentMapContinent()
	testKont = tostring(testKont)
	local testLok = GetCurrentMapZone()
	testLok = tostring(testLok)
	local x,y = GetPlayerMapPosition("player")
	local messg = tostring(message)
	TDG["tmpMapQuest"] = {}
	TDG["tmpMapQuest"][messg] = {}
	TDG["tmpMapQuest"][messg][testKont] = {}
	TDG["tmpMapQuest"][messg][testKont][testLok] = {}
	TDG["tmpMapQuest"][messg][testKont][testLok]["x"] = x
	TDG["tmpMapQuest"][messg][testKont][testLok]["y"] = y
	TDG["tmpMapQuest"][messg][testKont][testLok]["msg"] = "мсг1"
	TDG["tmpMapQuest"][messg][testKont][testLok]["cel"] = "цель"
	TDG["tmpMapQuest"][messg][testKont][testLok]["podskazki"] = {}
	TDG["tmpMapQuest"][messg][testKont][testLok]["podskazki"]["1"] = "тест1"
	TDG["tmpMapQuest"][messg][testKont][testLok]["podskazki"]["2"] = "тест2"
	TDG["tmpMapQuest"][messg][testKont][testLok]["podskazki"]["3"] = "тест3"
	TDG["tmpMapQuest"][messg][testKont][testLok]["podskazki"]["4"] = "тест4"
	TDG["tmpMapQuest"][messg][testKont][testLok]["podskazki"]["5"] = "тест5"
end
if kod == "itemQuestSend" then
	print (kod,message)
	SendAddonMessage("NSGadd", "#xxx " .. sender, "guild")
	SendChatMessage(sender .. " !получает 2 опыта", "guild", nil, 1);
	SendAddonMessage("#M1QP", sender, "guild")
	TDG[sender][qAchiv] = "9999"
end

if kod =="#получить_заметку" then
	if message ~= nil then
		if TDG[message] ~= nil then
			SendAddonMessage("#отправить_заметку " .. sender .. " " .. message, TDG[message]["заметка"], "guild")
		end
	end
end
if kod =="#получить_отзыв" then
	if TDG[message] ~= nil then
		if TDG[message]["отзыв"] ~= nil then
			local str = ""
			for k, v in pairs(TDG[message]["отзыв"]) do
				str = str .. v .. "\n"
			end
			SendAddonMessage("#отправить_отзыв " .. sender .. " " .. message, str, "guild")
		end
	end
end
if kodMsg[1] == "otzyvNS" then
	print(kod,sender,message)
	if message ~= nil and message~= "" then
		if TDG[kodMsg[2]] == nil then
			TDG[kodMsg[2]] = {}
		end
		if TDG[kodMsg[2]]["отзыв"] == nil then
			TDG[kodMsg[2]]["отзыв"] = {}
		end
		if type(TDG[kodMsg[2]]["отзыв"]) == "string" then
			TDG[kodMsg[2]]["отзыв"] = {}
		end
		TDG[kodMsg[2]]["отзыв"][sender] = "|cFF6495EDОт " .. sender .. ": |cff99ff99" .. message .. " |cff00BFFF" .. date()
		SendChatMessage(sender .. ", отзыв о персонаже " .. kodMsg[2] .. " добавлен", "officer", nil, 1)
	else
		SendChatMessage(sender .. ", нельзя добавить пустой отзыв.", "OFFICER", nil, 1)
	end
end
if kod == "zametkaNS" then
	print (kod,sender,message)
	TDG[sender]["заметка"] = message
	SendChatMessage(sender .. ", заметка добавлена", "officer", nil, 1)
end

if kod=="NSGadd" then
hshStran3S=hshSenderNomeServ(sender)
--print (arg1 .. " " .. message .. " " .. sender)
--print (arg1,sender,message)
--print (arg2) сообщение
--print (arg3) херня
--print (arg4) сендер
--print (kod)

if TDG[sender]==nil then
	TDG[sender]={}
end
if TDG[nik][endQuests] == nil then
	TDG[nik][endQuests]={}
end
if pQuests == nil then
	pQuests={}
end
if pQuests[1] == nil then
	pQuests[1]={}
end
if pQuests[2] == nil then
	pQuests[2]={}
end
if pQuests[3] == nil then
	pQuests[3]={}
end
if message == "#отобразить_квест_ачивки_нум" then
	SendChatMessage("*" .. sender .. ", покажи ачивку " .. TDG[sender]["взят_ли_квест_простая_ачивка"], "OFFICER", nil, 1)
	SendAddonMessage("NSGadd", "#ShowAchAAK " .. sender, "guild")
end
if message == "#ачивкуПоказал" then
	SendChatMessage("*" .. sender .. ", выполни эту ачивку", "OFFICER", nil, 1)
end
if string.find (message, "#aab") then
	msg1=mysplit(message)
	msg2=msg1[2]
	TDG[sender][endQuests][msg2]="1"
	testQLVL=TDG[sender]["уровень_квестов"]
	testQLVL=tonumber(testQLVL)
	countQ=tablelength(pQuests[testQLVL])
	chisloProstyhQComplit=0
	chisloProstyhQComplit=tonumber(chisloProstyhQComplit)
	for testQ=1, countQ do
		x = math.random(1, countQ)
		ach=pQuests[testQLVL][x]
		if TDG[sender][endQuests][ach]~="1" then
			SendAddonMessage("NSGadd", "#aaa " .. sender .. " " .. ach, "guild")
			break
		else
			chisloProstyhQComplit=chisloProstyhQComplit + 1
			if chisloProstyhQComplit==countQ then
				testQLVL=TDG[sender]["уровень_квестов"]
				testQLVL=tonumber(testQLVL)
				testQLVL=testQLVL+1
				TDG[sender]["уровень_квестов"]=testQLVL
				SendChatMessage("*" .. sender .. ", сложность квестов повышена.", "OFFICER", nil, 1)
			end
		end
	end
end
if string.find (message, "#aac") or string.find (message, "#aaq")  then
	vydat_q=mysplit(message)
	vydat_q=vydat_q[2]
	if TDG[sender][qAchiv]==nil or TDG[sender][qAchiv]=="9999" then
		SendAddonMessage("NSGadd", "#aae " .. sender .. " " .. vydat_q, "guild")
		prostye_q=vydat_q
		TDG[sender][endQuests][prostye_q]="0"
		TDG[sender][qAchiv]=prostye_q
		TDG[sender]["третий_лвл_квестов_2"]=vydat_q
	else
		SendChatMessage(sender .. ", у тебя уже взят квест: " .. GetAchievementLink(vydat_q), "OFFICER", nil, 1)
	end
end
if message == "#показать_ачивку3один" then
	SendChatMessage(sender .. ", покажи ачивку " .. TDG[sender][qAchiv], "OFFICER", nil, 1)
	SendAddonMessage("NSGadd", "#показал_ачивку3один " .. sender, "guild")
end
if string.find(message, "#aag") then
	msg=mysplit(message)
	msg1=msg[2]
	TDG[sender][endQuests][msg1]="1"
	TDG[sender][qAchiv]="9999"
	SendChatMessage(sender .. " !получает 2 опыта", "GUILD", nil, 1);
end
if message == "#ачивка_3один_нету" then
	SendChatMessage("*" .. sender .. ", выполни эту ачивку", "OFFICER", nil, 1)
end




if string.find (message, "#zzs") or string.find (message, "#aai") or string.find (message, "#aar") or string.find (message, "#aap") then
	if stat == nil then
		stat = {}
	end
	if stat[sender] == nil then
		stat[sender] = {}
	end
	if stat[sender]["взятые_квесты"] == nil then
		stat[sender]["взятые_квесты"] = 1
	else
		stat[sender]["взятые_квесты"] = stat[sender]["взятые_квесты"]+1
	end
	SendChatMessage(sender .. ", берет квест в " .. stat[sender]["взятые_квесты"] .. " раз", "OFFICER", nil, 1)
	if TDG[sender]==nil then
		TDG[sender]={}
	end
	if TDG[sender][endQuests]==nil then
		TDG[sender][endQuests]={}
	end
	local guokTimerStart=pQuests[1][1]
	if TDG[sender]["уровень_квестов"]==nil then
		TDG[sender]["уровень_квестов"]=1
	end
	msgPovtor=mysplit(message)
	msgPovtor=msgPovtor[2]
	if string.find (message, "#aai") then
		TDG[sender][endQuests][msgPovtor]="9999"
	end
	for guokZ=1,GetNumGuildMembers(true) do
		local name, rankName, rankIndex, level, classDisplayName, zone, publicNote, officerNote, isOnline, status, class, achievementPoints, achievementRank, isMobile, canSoR, repStanding, guid = GetGuildRosterInfo(guokZ)
		if name == sender then
			local denT = string.utf8sub(officerNote, 6, 7)
			local qN = string.utf8sub(officerNote, 8, 8)
			local gildLvl = string.utf8sub(officerNote, 1, 1)
			qN = tonumber (qN)
			local bonusQuestPorVers = mysplit(message)
			if bonusQuestPorVers[2] ~= nil then
				bonusQuestPorVers[2] = tonumber(bonusQuestPorVers[2])
				if bonusQuestPorVers[2] == versAdd then
					if qN ~= nil then
						qN = qN
					else

					end
				end
			end
			denn = {}
			denn = date("%d")
			denn = tonumber(denn)
			denT = tonumber(denT)
			gildLvl = tonumber (gildLvl)
			if denn == denT then
				if gildLvl ~= 0 then
					if qN >= gildLvl then
						testQLim="1"
					else
						testQLim="0"
					end
				else
					if qN >= 1 then
						testQLim="1"
					else
						testQLim="0"
					end
				end
			else
				testQLim="0"
			end
		else
		end
	end
	if testQLim=="0" then
		testQLVL=TDG[sender]["уровень_квестов"]
		testQLVL=tonumber(testQLVL)
		if testQLVL==1 then
			if TDG[sender][endQuests][guokTimerStart]~=nil then
				if TDG[sender][qAchiv]==nil or TDG[sender][qAchiv]=="9999" then
					countQ=tablelength(pQuests[testQLVL])
					local chisloProstyhQComplit=0
					chisloProstyhQComplit=tonumber(chisloProstyhQComplit)
					for testQ=1, countQ do
						local x = math.random(1, countQ)
						ach=pQuests[testQLVL][x]
						if TDG[sender][endQuests][ach]~="1" then
							SendAddonMessage("NSGadd", "#aaa " .. sender .. " " .. ach, "guild")
							break
						else
							chisloProstyhQComplit=chisloProstyhQComplit + 1
							if chisloProstyhQComplit==countQ then
								testQLVL=TDG[sender]["уровень_квестов"]
								testQLVL=tonumber(testQLVL)
								testQLVL=testQLVL+1
								TDG[sender]["уровень_квестов"]=testQLVL
								SendChatMessage(sender .. ", сложность квестов повышена.", "OFFICER", nil, 1)
							end
						end
					end
				else
					ach=TDG[sender][qAchiv]
					SendChatMessage(sender .. ", у тебя уже взят квест: " .. " " .. GetAchievementLink(ach), "OFFICER", nil, 1)
				end
			else
				countQ=tablelength(pQuests[testQLVL])
					local chisloProstyhQComplit=0
					chisloProstyhQComplit=tonumber(chisloProstyhQComplit)
					for testQ=1, countQ do
						local x = math.random(1, countQ)
						ach=pQuests[testQLVL][x]
						if TDG[sender][endQuests][ach]~="1" then
							SendAddonMessage("NSGadd", "#aaa " .. sender .. " " .. ach, "guild")
							break
						else
							chisloProstyhQComplit=chisloProstyhQComplit + 1
							if chisloProstyhQComplit==countQ then
								testQLVL=TDG[sender]["уровень_квестов"]
								testQLVL=tonumber(testQLVL)
								testQLVL=testQLVL+1
								TDG[sender]["уровень_квестов"]=testQLVL
								SendChatMessage("*" .. sender .. ", сложность квестов повышена.", "OFFICER", nil, 1)
							end
						end
					end
			end
		elseif testQLVL==2 then
			if TDG[sender][qAchiv]==nil or TDG[sender][qAchiv]=="9999" then
				countQ=tablelength(pQuests[testQLVL])
				local chisloProstyhQComplit=0
				chisloProstyhQComplit=tonumber(chisloProstyhQComplit)
				j=0
				k=0
				for testQ=1, countQ do
					local x = math.random(1, countQ)
					ach=pQuests[testQLVL][x]
					if TDG[sender][endQuests][ach]~="9999" then
						SendAddonMessage("NSGadd", "#aah " .. sender .. " " .. ach, "guild")
						break
					else
						chisloProstyhQComplit=chisloProstyhQComplit + 1
						if chisloProstyhQComplit==countQ then
							testQLVL=TDG[sender]["уровень_квестов"]
							testQLVL=tonumber(testQLVL)
							testQLVL=testQLVL+1
							TDG[sender]["уровень_квестов"]=testQLVL
							SendAddonMessage("NSGadd", "#aa3 " .. sender, "guild")
							SendChatMessage(sender .. ", сложность квестов повышена.", "OFFICER", nil, 1)
						end
					end
				end
			else
				ach=TDG[sender][qAchiv]
				SendChatMessage(sender .. ", у тебя уже взят квест: " .. GetAchievementLink(ach), "OFFICER", nil, 1)
			end
		elseif testQLVL==3 then
			if TDG[sender]["третий_лвл_квестов_1"]==nil then
				TDG[sender]["третий_лвл_квестов_1"]=pQuests[testQLVL][1][1]
			end
			if TDG[sender]["третий_лвл_квестов_2"]==nil then
				TDG[sender]["третий_лвл_квестов_2"]=pQuests[testQLVL][2][1]
			end
			if TDG[sender][qAchiv]==nil or TDG[sender][qAchiv]=="9999" then
			SendAddonMessage("rasstoyanie 2 15", "0.002", "guild")
				local xQ = math.random(1, 8)
				print (xQ .. " тут")
				if (xQ == 1 or xQ == 2) and TDG[sender]["третий_лвл_квестов_1"]~="9999" then
					questLvl3_1(testQLVL,sender)
				elseif xQ == 3 or xQ == 4 then
					local x = math.random(1, #pQuests[3][3])
					SendChatMessage(sender .. " Покажи свою любимую ачивку", "OFFICER", nil, 1)
					TDG[sender]["взят_ли_квест_простая_ачивка"]="q3Stat"
					TDG[sender]["q3S"] = tonumber(pQuests[3][3][x])
					SendAddonMessage("#q3Stat " .. sender,tonumber(pQuests[3][3][x]), "guild")
				elseif xQ == 5 or xQ == 6 then
					local qq=math.random(1,#pQuests["items"])
					TDG[sender]["itemName"]=tostring(pQuests["items"][qq]["itemName"])
					TDG[sender]["itemNum"]=tonumber(pQuests["items"][qq]["itemNum"])
					TDG[sender]["itemEnStuck"]=tonumber(pQuests["items"][qq]["itemEnStuck"])
					local itemName, itemLink, itemRarity, itemLevel, itemMinLevel, itemType, itemSubType, itemStackCount, itemEquipLoc, itemTexture, itemSellPrice = GetItemInfo(pQuests["items"][qq]["itemName"])
					SendChatMessage(sender .. " пришли мне " .. TDG[sender]["itemNum"] .. " стаков " .. itemLink, "OFFICER", nil, 1)
					TDG[sender]["взят_ли_квест_простая_ачивка"]="itemQ"
					SendAddonMessage("#itemQ " .. sender,TDG[sender]["взят_ли_квест_простая_ачивка"], "guild")
					SendAddonMessage("#itemQNum " .. sender,tonumber(TDG[sender]["itemNum"]), "guild")
					SendAddonMessage("#itemQName " .. sender,tostring(TDG[sender]["itemName"]), "guild")
					SendAddonMessage("#qUpdateS3" .. " " .. sender, TDG[sender]["взят_ли_квест_простая_ачивка"], "guild")
					SendAddonMessage("#qUpdate2v" .. " " .. sender, TDG[sender]["уровень_квестов"], "guild")
					SendAddonMessage("#itemQEnStuck " .. sender,TDG[sender]["itemEnStuck"], "guild")
				elseif xQ == 7 and TDG[sender]["третий_лвл_квестов_2"]~="9999" then
					questLvl3_2(testQLVL,sender)
				elseif xQ == 8 then
					TDG[sender]["q33q"],TDG[sender]["q33nik1"],TDG[sender]["q33nik2"],TDG[sender]["q33nik3"],TDG[sender]["поиск"],TDG[sender]["ответ"] = qLvl33(sender)
						SendChatMessage(sender .. ", " .. TDG[sender]["q33q"] .. TDG[sender]["q33nik1"] .. ", " .. TDG[sender]["q33nik2"] .. ", " .. TDG[sender]["q33nik3"], "OFFICER", nil, 1)
						SendAddonMessage("#q33q" .. " " .. sender, TDG[sender]["q33q"], "guild")
						SendAddonMessage("#q33nik1 " .. sender, TDG[sender]["q33nik1"], "guild")
						SendAddonMessage("#q33nik2 " .. sender, TDG[sender]["q33nik2"], "guild")
						SendAddonMessage("#q33nik3 " .. sender, TDG[sender]["q33nik3"], "guild")
						SendAddonMessage("#q33fnd " .. sender, TDG[sender]["поиск"], "guild")
						SendAddonMessage("#q33ans " .. sender, TDG[sender]["ответ"], "guild")
						TDG[sender][qAchiv] = "q33"

				elseif TDG[sender]["третий_лвл_квестов_2"]=="9999" and TDG[sender]["третий_лвл_квестов_1"]=="9999" then
					SendChatMessage(sender .. ", все квесты закончились", "OFFICER", nil, 1)
				end
			else
				ach=TDG[sender][qAchiv]
				if ach ~= nil then
					if ach ~= "q33" and ach ~= "q3Stat" and ach ~= "itemQ" then
						SendChatMessage(sender .. ", у тебя уже взят квест: " .. GetAchievementLink(ach), "OFFICER", nil, 1)
					else
						SendChatMessage(sender .. ", у тебя уже взят квест", "OFFICER", nil, 1)
					end
				else
					SendChatMessage(sender .. ", у тебя уже взят квест", "OFFICER", nil, 1)
				end
			end
		end
	else
		local bonusQuestPorVers = mysplit(message)
		--print (bonusQuestPorVers[2],versAdd)
		if bonusQuestPorVers[2] ~= nil then
			bonusQuestPorVers[2] = tonumber(bonusQuestPorVers[2])
		end
		if bonusQuestPorVers[2] == versAdd then
			SendChatMessage(sender .. ", следущий квест на твоем гильдлвле доступен завтра, но тебе доступен дополнительный квест с повышенным опытом: вторая кнопка", "officer", nil, 1)
		end
		if bonusQuestPorVers[2] == nil then
			SendChatMessage(sender .. ", следущий квест на твоем гильдлвле доступен завтра, но тебе доступен дополнительный квест с повышенным опытом: вторая кнопка", "officer", nil, 1)
		end
		if bonusQuestPorVers[2] ~= versAdd and bonusQuestPorVers[2] ~= nil then
			SendChatMessage(sender .. ", следущий квест на твоем гильдлвле доступен завтра, но тебе доступен дополнительный квест с повышенным опытом: вторая кнопка", "officer", nil, 1)
		end
	end
end




if string.find (message, "#aaj") or string.find (message, "#aas") then
	msgQLVL2Vydat=mysplit(message)
	msgQLVL2Vydat2=msgQLVL2Vydat[3]
	msgQLVL2Vydat2=tonumber(msgQLVL2Vydat2)
	msgQLVL2Vydat3=msgQLVL2Vydat[4]
	msgQLVL2Vydat4=msgQLVL2Vydat[2]
	msgQLVL2Vydat4=tonumber(msgQLVL2Vydat4)
	skolko_dolzhno_stat=msgQLVL2Vydat2-msgQLVL2Vydat4+3
	if msgQLVL2Vydat4<=3 then
		SendAddonMessage("NSGadd", "#aak " .. sender .. " " .. msgQLVL2Vydat3 .. " " .. msgQLVL2Vydat4, "guild")
		TDG[sender]["взят_ли_квест_простая_ачивка"]=msgQLVL2Vydat3
		TDG[sender][endQuests][msgQLVL2Vydat3]=msgQLVL2Vydat2
	else
		SendAddonMessage("NSGadd", "#aal " .. sender .. " " .. msgQLVL2Vydat3, "guild")
		TDG[sender]["взят_ли_квест_простая_ачивка"]=msgQLVL2Vydat3
		TDG[sender][endQuests][msgQLVL2Vydat3]=skolko_dolzhno_stat
	end
end
if message == "#показать_ачивку3много" then
	SendChatMessage(sender .. ", покажи ачивку " .. TDG[sender]["взят_ли_квест_простая_ачивка"], "officer", nil, 1)
	SendAddonMessage("NSGadd", "#показалАчивку3много " .. sender, "guild")
end
if message == "#выдайДоброНаАчивку3много" then
	SendChatMessage(sender .. ", выполни еще три пункта ачивки", "officer", nil, 1)
end
if string.find (message, "#zzk")then
	schitaemSlova=mysplit(message)
	schitaemSlova=schitaemSlova[3]
	TDG[sender][endQuests][schitaemSlova]="9999"
	TDG[sender][qAchiv]="9999"
	SendChatMessage(sender .. " !получает 2 опыта", "GUILD", nil, 1);


end


if string.find (message, "#buhloXXX")then
	SendChatMessage(sender .. " получает 1 опыта", "guild", nil, 1)
end
if string.find (message, "#buhloYYY")then
	SendChatMessage(sender .. " получает 2 опыта", "guild", nil, 1)
end

if string.find (message, "#zzr") or string.find (message, "#aam") or string.find (message, "#aat") then
	if TDG[sender][qAchiv]==nil or TDG[sender][qAchiv]=="9999" then
		SendChatMessage(sender .. ", у тебя нет взятых квестов.", "OFFICER", nil, 1);
	else
		proverkaVypolneniya=TDG[sender][qAchiv]
		SendAddonMessage("NSGadd", "#aaf " .. sender .. " " .. proverkaVypolneniya, "guild")
	end
end



if string.find (message, "#zzp") then
	if stat == nil then
		stat ={}
	end
	if stat[sender] == nil then
		stat[sender] = {}
	end
	if stat[sender]["отказ_от_квестов"] == nil then
		stat[sender]["отказ_от_квестов"] = 1
	else
		stat[sender]["отказ_от_квестов"] = stat[sender]["отказ_от_квестов"]+1
	end
	SendChatMessage(sender .. ", отказывается от квеста в " .. stat[sender]["отказ_от_квестов"] .. " раз", "OFFICER", nil, 1)
	if TDG[sender]["взят_ли_квест_простая_ачивка"]==nil then
		SendChatMessage(sender .. ", тебе нечего отменять.", "OFFICER", nil, 1)
	else
		testQuest=TDG[sender]["взят_ли_квест_простая_ачивка"]
		if TDG[sender]["взят_ли_квест_простая_ачивка"]~="9999" then
			if TDG[sender]["взят_ли_квест_простая_ачивка"] == "q33" or TDG[sender]["взят_ли_квест_простая_ачивка"] == "q3Stat" or TDG[sender]["взят_ли_квест_простая_ачивка"] == "itemQ" then
				SendAddonMessage("NSGadd", "#xxx " .. sender, "guild")
				SendChatMessage(sender .. " отказался от квеста.", "OFFICER", nil, 1)
			else
				SendAddonMessage("NSGadd", "#xxx " .. sender, "guild")
				SendChatMessage(sender .. ", квест " .. GetAchievementLink(testQuest) .. " отменен.", "OFFICER", nil, 1)
			end
			TDG[sender]["взят_ли_квест_простая_ачивка"]="9999"
			for guok=1,GetNumGuildMembers(true) do
				local name, rankName, rankIndex, level, classDisplayName, zone, publicNote, officerNote, isOnline, status, class, achievementPoints, achievementRank, isMobile, canSoR, repStanding, guid = GetGuildRosterInfo(guok)
				if name == sender then
					local ofN = mysplit(officerNote)
					if ofN[1] ~= nil then
						local plusKol=string.sub(ofN[2],1,2)
						local plusKol1=string.sub(ofN[2],3,3)
						local plusKol2 = date("%d")
						plusKol = tonumber(plusKol)
						plusKol2 = tonumber(plusKol2)
						if plusKol == plusKol2 then
							plusKol2=string.format("%02d", plusKol2)
							plusKol1 = plusKol1 + 1
							local plusRez = ofN[1] .. " " .. plusKol2 ..  plusKol1 .. " " .. ofN[3]
							GuildRosterSetOfficerNote(guok, plusRez)
						else
							plusKol2=string.format("%02d", plusKol2)
							plusKol1 = 1
							local plusRez = ofN[1] .. " " .. plusKol2 .. plusKol1 .. " " .. ofN[3]
							GuildRosterSetOfficerNote(guok, plusRez)
						end
					else
						local nuovoDate = date("%d")
						plusRez = "0000" .. " " .. nuovoDate .. "1" .. " " .. "0000"
						GuildRosterSetOfficerNote(guok, plusRez)
					end
				end
			end
		else
			SendChatMessage(sender .. ", тебе нечего отменять.", "OFFICER", nil, 1)
		end
	end

end

local guokInf = string.gsub(message, "%s+", "")
if string.find (message, "#zzt") then
	for guok=1,GetNumGuildMembers(true) do
		local name, rankName, rankIndex, level, classDisplayName, zone, publicNote, officerNote, isOnline, status, class, achievementPoints, achievementRank, isMobile, canSoR, repStanding, guid = GetGuildRosterInfo(guok)
		if name == sender then
			local test=string.sub(officerNote,2,2)
			if test~="" then
			local gildLvl = string.utf8sub(officerNote, 1, 1)
			local gildExp = string.utf8sub(officerNote, 2, 5)
			SendChatMessage("*" .. sender .. ": " .. gildLvl .. " гильдлвл" .. " и " .. gildExp .. " опыта", "officer", nil, 1)
			local gildLvlN = tonumber (gildLvl)
			local gildExpN = tonumber (gildExp)
			if gildLvl == "0" then
				local gildExpN = 4 - gildExpN
				SendChatMessage("*" .. sender .. ": до лвлапа осталось " .. gildExpN .. " опыта" , "officer", nil, 1)
				SendChatMessage("*Сейчас награда 50 золота за квест и доступен 1 квест в сутки. При лвлапе: 4 сумки из ткани пустоты или лотерейный билет. " , "officer", nil, 1)
			elseif gildLvl == "1" then
				local gildExpN = 8 - gildExpN
				SendChatMessage("*" .. sender .. ": до лвлапа осталось " .. gildExpN .. " опыта" , "officer", nil, 1)
				SendChatMessage("*Сейчас награда 60 золота за квест и доступен 1 квест в сутки. При лвлапе: 4 сумки ледяной ткани или лотерейный билет. " , "officer", nil, 1)
			elseif gildLvl == "2" then
				local gildExpN = 16 - gildExpN
				SendChatMessage("*" .. sender .. ": до лвлапа осталось " .. gildExpN .. " опыта" , "officer", nil, 1)
				SendChatMessage("*Сейчас награда 70 золота за квест и доступны 2 квеста в сутки. " , "officer", nil, 1)
				SendChatMessage("*При лвлапе: повышение до Констебля. Что то одно из пятой ячейки ГБ, кроме серой кошки, письма и маунтов ИЛИ лотерейный билет. " , "officer", nil, 1)
			elseif gildLvl == "3" then
				local gildExpN = 32 - gildExpN
				SendChatMessage("*" .. sender .. ": до лвлапа осталось " .. gildExpN .. " опыта" , "officer", nil, 1)
				SendChatMessage("*Сейчас награда 80 золота за квест и доступны 3 квеста в сутки. При лвлапе: повышение до Мл. Капрала. 2 ледовые сумки или три лотерейных билета. " , "officer", nil, 1)
			elseif gildLvl == "4" then
				local gildExpN = 64 - gildExpN
				SendChatMessage("*" .. sender .. ": до лвлапа осталось " .. gildExpN .. " опыта" , "officer", nil, 1)
				SendChatMessage("*Сейчас награда 90 золота за квест и доступны 4 квеста в сутки. При лвлапе: Повышение до Капрала. 4 ледовые сумки или четыре лотерейных билета. " , "officer", nil, 1)
			elseif gildLvl == "5" then
				local gildExpN = 128 - gildExpN
				SendChatMessage("*" .. sender .. ": до лвлапа осталось " .. gildExpN .. " опыта" , "officer", nil, 1)
				SendChatMessage("*Сейчас награда 100 золота за квест и доступны 5 квестов в сутки. При лвлапе: повышение до Сержанта. 7500 золота или 7 лотерейных билетов." , "officer", nil, 1)
			elseif gildLvl == "6" then
				local gildExpN = 256 - gildExpN
				SendChatMessage("*" .. sender .. ": до лвлапа осталось " .. gildExpN .. " опыта" , "officer", nil, 1)
				SendChatMessage("*Сейчас награда 110 золота за квест и доступны 6 квестов в сутки. При лвлапе: 15000 золота или 15 лотерейных билетов. " , "officer", nil, 1)
			elseif gildLvl == "7" then
				local gildExpN = 512 - gildExpN
				SendChatMessage("*" .. sender .. ": до лвлапа осталось " .. gildExpN .. " опыта" , "officer", nil, 1)
			elseif gildLvl == "8" then
				local gildExpN = 1024 - gildExpN
				SendChatMessage("*" .. sender .. ": до лвлапа осталось " .. gildExpN .. " опыта" , "officer", nil, 1)
			elseif gildLvl == "9" then
				local gildExpN = 2048 - gildExpN
				SendChatMessage("*" .. sender .. ": до лвлапа осталось " .. gildExpN .. " опыта" , "officer", nil, 1)
			end
			else
				SendChatMessage("*" .. sender .. ", ты еще не делал квестов", "officer", nil, 1)
			end
		else
		end
	end
else
end

if string.find (message, "#zzz") then
	if TDG[sender]["доп_квест"]~=nil then
		testDopQ=TDG[sender]["доп_квест"]
		testDopQ=tonumber(testDopQ)
	end
		local kol=0
		for guokZ=1,GetNumGuildMembers(true) do
			local name, rankName, rankIndex, level, classDisplayName, zone, publicNote, officerNote, isOnline, status, class, achievementPoints, achievementRank, isMobile, canSoR, repStanding, guid = GetGuildRosterInfo(guokZ)
			kol=kol+1
		end
		local kol1=kol+20
		if kol <= 980 then
			SendChatMessage("* #zzl " .. sender .. ", прими 20 новых игроков в гильдию.", "officer", nil, 1);
			TDG[sender]["доп_квест"]=kol1
		else
			SendChatMessage("Дополнительный квест временно недоступен. Ждите Кусяо.", "officer", nil, 1);
		end


if message == "#дайДоброНаСтат" then
	SendChatMessage(sender .. ", выполни еще 5 пунктов ачивки", "officer", nil, 1)
end
end

if string.find (message, "#zzguild") and sender ~= myNome then
--if sender ~= "Zalindia" then
	local zzyF = mysplit(message)
	zzyF[2] = tonumber(zzyF[2])
		if zzyF[2] < 30 then
			SendChatMessage("*" .. sender .. ", ты принял " .. zzyF[2] .. " игроков из 30. ", "officer", nil, 1);
		else
			SendChatMessage(sender .. " получает 3 опыта", "guild", nil, 1);
			SendChatMessage(sender .. " получает кусок карты", "guild", nil, 1);
			SendAddonMessage("NSGadd", "#zz_x " .. sender, "guild")
			if TDG[sender]["кусков_карты"]==nil then
				TDG[sender]["кусков_карты"]=1
			else
				dopKus=TDG[sender]["кусков_карты"]
				dopKus=tonumber(dopKus)
				dopKus=dopKus+1
				TDG[sender]["кусков_карты"]=dopKus
			end
			TDG[sender]["доп_квест"]=9999
		end
--else
	--SendChatMessage("*" .. sender .. ", прими еще " .. TDG["Zalindia"]["shtrf"] .. " игроков для восстановления дополнительного квеста.", "OFFICER", nil, 1);
--end
end

if string.find (message, "#zzy") and sender ~= myNome then
	SendChatMessage(sender .. " обнови аддон", "guild", nil, 1);
end
--[[
if string.find (message, "принял +1",1,true) and sender == "Zalindia" then
	TDG["Zalindia"]["shtrf"] = TDG["Zalindia"]["shtrf"] - 1
	SendChatMessage("*" .. sender .. ", прими еще " .. TDG["Zalindia"]["shtrf"] .. " игроков для восстановления дополнительного квеста.", "OFFICER", nil, 1);
end--]]
if string.find (message, "#qUpdate") then
	if TDG ~= nil then
		if TDG[sender] ~= nil then
			if TDG[sender]["уровень_квестов"] == nil then
				SendAddonMessage("#qUpdateS1" .. " " .. sender, "9999", "guild")
				SendAddonMessage("#qUpdate2v" .. " " .. sender, "1", "guild")
			end
			if TDG[sender]["уровень_квестов"] == 1 then
				SendAddonMessage("#qUpdateS1" .. " " .. sender, TDG[sender]["взят_ли_квест_простая_ачивка"], "guild")
				SendAddonMessage("#qUpdate2v" .. " " .. sender, TDG[sender]["уровень_квестов"], "guild")
			end
			if TDG[sender]["уровень_квестов"] == 2 then
				SendAddonMessage("#qUpdate2v" .. " " .. sender, TDG[sender]["уровень_квестов"], "guild")
				SendAddonMessage("#qUpdateS2" .. " " .. sender, TDG[sender]["взят_ли_квест_простая_ачивка"], "guild")
				local q = TDG[sender]["взят_ли_квест_простая_ачивка"]
				SendAddonMessage("#qUpdateSqKol2" .. " " .. sender, TDG[sender]["простые_квесты"][q], "guild")
			end
			if TDG[sender]["уровень_квестов"] == 3 then
				if TDG[sender]["взят_ли_квест_простая_ачивка"] == "9999" then
					SendAddonMessage("#qUpdateS2" .. " " .. sender, TDG[sender]["взят_ли_квест_простая_ачивка"], "guild")
					SendAddonMessage("#qUpdate2v" .. " " .. sender, TDG[sender]["уровень_квестов"], "guild")
				end
				if TDG[sender]["взят_ли_квест_простая_ачивка"] == nil then
					SendAddonMessage("#qUpdateS2" .. " " .. sender, "9999", "guild")
					TDG[sender]["взят_ли_квест_простая_ачивка"] = "9999"
					SendAddonMessage("#qUpdate2v" .. " " .. sender, TDG[sender]["уровень_квестов"], "guild")
				end
				if TDG[sender]["взят_ли_квест_простая_ачивка"] == "q33" then
					SendAddonMessage("#qUpdateS3" .. " " .. sender, TDG[sender]["взят_ли_квест_простая_ачивка"], "guild")
					SendAddonMessage("#qUpdate2v" .. " " .. sender, TDG[sender]["уровень_квестов"], "guild")
					SendAddonMessage("#qUpdateSF" .. " " .. sender, TDG[sender]["q33q"], "guild")
					SendAddonMessage("#qUpdateSq33q" .. " " .. sender, TDG[sender]["ответ"], "guild")
					SendAddonMessage("#qUpdateQ3F" .. " " .. sender, TDG[sender]["поиск"], "guild")
					SendAddonMessage("#qUpdateSNik1" .. " " .. sender, TDG[sender]["q33nik1"], "guild")
					SendAddonMessage("#qUpdateSNik2" .. " " .. sender, TDG[sender]["q33nik2"], "guild")
					SendAddonMessage("#qUpdateSNik3" .. " " .. sender, TDG[sender]["q33nik3"], "guild")
				end
				if TDG[sender]["взят_ли_квест_простая_ачивка"] ~= "q33" and TDG[sender]["взят_ли_квест_простая_ачивка"] ~= "q3Stat" and TDG[sender]["взят_ли_квест_простая_ачивка"] ~= "itemQ" and TDG[sender]["взят_ли_квест_простая_ачивка"] ~= "9999" then
					SendAddonMessage("#qUpdateS3" .. " " .. sender, TDG[sender]["взят_ли_квест_простая_ачивка"], "guild")
					SendAddonMessage("#qUpdate2v" .. " " .. sender, TDG[sender]["уровень_квестов"], "guild")
					local q = TDG[sender]["взят_ли_квест_простая_ачивка"]
					if TDG[sender]["простые_квесты"][q] ~= "0" then
						SendAddonMessage("#qUpdateQ32" .. " " .. sender, TDG[sender]["взят_ли_квест_простая_ачивка"], "guild")
						SendAddonMessage("#qUpdate2v" .. " " .. sender, TDG[sender]["уровень_квестов"], "guild")
						SendAddonMessage("#qUpdate3pNum" .. " " .. sender, TDG[sender]["простые_квесты"][q], "guild")
						SendAddonMessage("#qUpdate3_2vz" .. " " .. sender, "vzyat", "guild")
						SendAddonMessage("#qUpdate3_1vz" .. " " .. sender,  "nevzyat", "guild")
					else
						SendAddonMessage("#qUpdateQ32" .. " " .. sender, TDG[sender]["взят_ли_квест_простая_ачивка"], "guild")
						SendAddonMessage("#qUpdate2v" .. " " .. sender, TDG[sender]["уровень_квестов"], "guild")
						SendAddonMessage("#qUpdate3rez" .. " " .. sender, TDG[sender]["простые_квесты"][q], "guild")
						SendAddonMessage("#qUpdate3_2vz" .. " " .. sender, "nevzyat", "guild")
						SendAddonMessage("#qUpdate3_1vz" .. " " .. sender,  "vzyat", "guild")
					end
				end
				if TDG[sender]["взят_ли_квест_простая_ачивка"] == "q3Stat" then
					SendAddonMessage("#qUpdateS3" .. " " .. sender, TDG[sender]["взят_ли_квест_простая_ачивка"], "guild")
					SendAddonMessage("#qUpq3S" .. " " .. sender, TDG[sender]["q3S"], "guild")
					SendAddonMessage("#qUp3StatNum " .. sender, TDG[sender]["q3StatNum"], "guild")
					SendAddonMessage("#qUpdate2v" .. " " .. sender, TDG[sender]["уровень_квестов"], "guild")
				end
				if TDG[sender]["взят_ли_квест_простая_ачивка"] == "itemQ" then
					SendAddonMessage("#qUpdateS3" .. " " .. sender, TDG[sender]["взят_ли_квест_простая_ачивка"], "guild")
					SendAddonMessage("#qUpdate2v" .. " " .. sender, TDG[sender]["уровень_квестов"], "guild")
					SendAddonMessage("#itemQName" .. " " .. sender, TDG[sender]["itemName"], "guild")
					SendAddonMessage("#itemQNum" .. " " .. sender, TDG[sender]["itemNum"], "guild")
					SendAddonMessage("#itemQEnStuck " .. " " .. sender, TDG[sender]["itemEnStuck"], "guild")
				end
			end
		end
	end
end

if string.find (message, "#q33x") then
	SendAddonMessage("NSGadd", "#xxx " .. sender, "guild")
	SendChatMessage(sender .. " !получает 2 опыта", "guild", nil, 1);
	TDG[sender][qAchiv] = "9999"
end

end

end
)
